home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / spwno413.zip / SPAWNO.PAS < prev    next >
Pascal/Delphi Source File  |  1991-11-12  |  2KB  |  52 lines
  1. {============================================================================}
  2. { (c) Copyright 1991 Ralf Brown    All Rights Reserved                 }
  3. { This file is part of the SPAWNO package and may be redistributed as a part }
  4. { of, and under the same terms as, that package.                 }
  5. {============================================================================}
  6.  
  7. UNIT SPAWNO ;
  8.  
  9. interface
  10.  
  11. const
  12.    (* symbolic constants for specifying permissible swap locations *)
  13.    (* add/or together the desired destinations *)
  14.    swap_disk = 0 ;
  15.    swap_xms = 1 ;
  16.    swap_ems = 2 ;
  17.    swap_ext = 4 ;
  18.    swap_all = $FF ;     (* swap to any available destination *)
  19.  
  20.    (* error codes *)
  21.    enotfound = 2 ;
  22.    enopath = 3 ;
  23.    eaccess = 5 ;
  24.    enomem = 8 ;
  25.    e2big = 20 ;
  26.    ewritefault = 29 ;
  27.  
  28. var
  29.    spawno_error : integer ; (* error code when SPAWN returns -1 *)
  30.  
  31. procedure init_SPAWNO(swap_dirs : string ; swap_types : integer ;
  32.               min_res : integer ; res_stack : integer) ;
  33.     (* min_res = minimum number of paragraphs to keep resident
  34.        res_stack = minimum paragraphs of stack to keep resident
  35.                (0 = no change)
  36.      *)
  37.  
  38. function SPAWN(progname : string ; arguments : string ; envseg : integer) : integer ;
  39.  
  40. implementation
  41.  
  42. {$L SPAWNTP.OBJ}
  43. procedure init_SPAWNO(swap_dirs : string ; swap_types : integer ;
  44.               min_res : integer ; res_stack : integer) ;
  45.     external ;
  46.  
  47. function SPAWN(progname : string ; arguments : string ; envseg : integer) : integer ;
  48.     external ;
  49.  
  50. end.
  51.  
  52.